home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / Internal_132.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  533 b   |  23 lines
  1. property spriteNum
  2. global fsrect
  3.  
  4. on mouseUp me
  5.   rawpos = the mouseH - sprite(spriteNum).left + 3
  6.   realpos = min(5, max(rawpos / 8, 1))
  7.   sprite(spriteNum + 1).locH = sprite(spriteNum).left + (realpos * 9) - 4
  8.   case realpos of
  9.     1:
  10.       fsrect = rect(-800, 0, -160, 480)
  11.     2:
  12.       fsrect = rect(-640, 0, 0, 480)
  13.     3:
  14.       if (the desktopRectList).count > 1 then
  15.         fsrect = (the desktopRectList)[2]
  16.       end if
  17.     4:
  18.       fsrect = rect(0, 0, 640, 480)
  19.     5:
  20.       fsrect = rect(800, 0, 1440, 480)
  21.   end case
  22. end
  23.